function[resultados]=tabla_resultados
principio='D:\proyecto\escritores\BD100escritores\';
load res100;
resss=resultados;
clear resultados;
for escritor=1:100
    datos=zeros(5,34);
    datos2=zeros(5,10);
    for t=1:10
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            xbin=binarizacion(direccion1);
            [histhoriz,histverti,grosor]=histogramas(xbin);
            xco=ByS(xbin,(grosor+1),3);
            angulo=inclinacion(xco,3);
            datos(1,w)=angulo;
            angulo=jambas_hampas(xbin);
            datos(2,w)=angulo;
            angulo=mean(resss{escritor}(2,:));
            [bb,B,N]=region_cerrada(xbin);
            [topline,upperbaseline,downbaseline,downline,ancho_cuerpo]=lineas_palabra(xbin);
            [vel]=velocidad(B,N,ancho_cuerpo,angulo);
            datos(3,w)=vel;
            [pendiente]=direccion_palabra(downbaseline,ancho_cuerpo,xbin);
            datos(4,w)=pendiente;
            [distancia]=distancia_letras(xbin);
            datos(5,w)=distancia;
        end
         
        datos2(1,t)=mean(datos(1,:));
        
        datos2(2,t)=mean(datos(2,:));
        
        datos2(3,t)=mean(datos(3,:));
        
        datos2(4,t)=mean(datos(4,:));
        
        datos2(5,t)=mean(datos(5,:));
        
        datos=zeros(5,34);
    end
    
    resultados{1,escritor}=datos2;
    datos2=zeros(5,10);
end   
save 'res200.mat' resultados